home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Sample Code / Pascal Sample 3.0B10 / Source / Features.p < prev    next >
Encoding:
Text File  |  1993-10-13  |  2.9 KB  |  81 lines  |  [TEXT/MPS ]
  1. (******************************************************************************
  2. *
  3. *    Apple Macintosh Developer Technical Support
  4. *
  5. *    Interfaces for feature determination
  6. *
  7. *    Program:    Sample 3.0
  8. *    FILE:        Features.p - Pascal implementation
  9. *
  10. *    by:        Matt Deatherage
  11. *
  12. *    Copyright © 1988-1993 Apple Computer, Inc.
  13. *    All rights reserved.
  14. *
  15. *******************************************************************************
  16. *
  17. * This unit, the "Features" unit, includes the compatibility information we
  18. * need to run with. Before using several features of the Macintosh operating
  19. * system or toolbox, it's wise programming practice to insure they actually
  20. * exist.  "Wise" means "If you call something that's not there, it's gonna
  21. * crash." 
  22. * 
  23. * There's a few nifty routines provided by the System Software to help with
  24. * all this, and we collect most of them into this unit to keep the code a
  25. * bit cleaner.  The major call to the unit is "DetermineFeatures", which
  26. * makes sure everything we need to examine the features we want is present
  27. * -- mostly Gestalt.  The same call also is a convenient place to set any
  28. * global variables we have that we want to use throughout the program. 
  29. * Rather than call Gestalt every time we need to check for color QuickDraw,
  30. * we check for it in DetermineFeatures and keep it in a global
  31. * variable.    This is easy to extend to include all the things you want to
  32. * check for. 
  33. * 
  34. * Sample calls DetermineFeatures from Initialize.
  35. *
  36. ******************************************************************************)
  37.  
  38. UNIT Features;
  39.  
  40. INTERFACE
  41.  
  42. (*******************************************************************************
  43. * Used Units
  44. *******************************************************************************)
  45.  
  46. USES GestaltEqu, OSUtils, Resources;
  47.  
  48. (*******************************************************************************
  49. * Global variables maintained by this unit
  50. *******************************************************************************)
  51.  
  52. VAR
  53.     gHasGestalt,                 { TRUE if Gestalt is implemented }
  54.     gHasHelpMgr,                 { TRUE if the Help Manager is present }
  55.     gHasColorQD,                 { TRUE if color QuickDraw is present }
  56.     gHas32BitQD,                 { TRUE if 32-Bit QuickDraw is installed }
  57.     gHasFindFolder,                { TRUE if FindFolder is available }
  58.     gHasDeviceLoop,             { TRUE if the DeviceLoop trap is implemented }
  59.     gHasAppleEvents: BOOLEAN;    { TRUE if the Apple Event Manager is present }
  60.     
  61.     gAppsResourceFile: INTEGER; { the resource file number of our application
  62.                                   file }
  63.  
  64. (*******************************************************************************
  65. *
  66. * DetermineFeatures - figure out what system features are present
  67. *
  68. * This routine examines the system and sets global variables listed above
  69. * to indicate what system features are present, if we're interested at
  70. * all.
  71. *
  72. *******************************************************************************)
  73.  
  74. FUNCTION DetermineFeatures: BOOLEAN;
  75.  
  76. IMPLEMENTATION
  77.  
  78.     {$I Features.inc1.p}
  79.  
  80. END. { unit Features }
  81.